home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PREVIEW.DIR / 00136_Script_rect capture < prev    next >
Text File  |  1997-07-22  |  2KB  |  59 lines
  1. global gMarkerRectList, gMarkerRectListCount
  2. --
  3. --on keyUp  
  4. --  if voidP(gMarkerRectList) then set gMarkerRectList = [:]
  5. --  case the key of
  6. --      
  7. --    "u":
  8. --      set theRect = rect(the mouseH, the mouseV, 0, 0)
  9. --      setAprop gMarkerRectList, the framelabel, theRect
  10. --      
  11. --    "l":
  12. --      set currRec = getAprop(gMarkerRectList, the frameLabel)
  13. --      set theRect = rect(0, 0, the mouseH, the mouseV)
  14. --      setAprop gMarkerRectList, the framelabel, currRec + theRect
  15. --      
  16. --    otherwise: nothing
  17. --  end case
  18. --end
  19.  
  20. on stopMovie
  21.   global gQTchan
  22.   
  23.   put gMarkerRectList into field "gMarkerRectList_session"
  24.   if the type of the member of sprite gQTchan = #digitalVideo then
  25.     set the movierate of sprite gQTchan to 0
  26.     set the movietime of sprite gQTchan to 0
  27.     set the visible of sprite gQTchan to 0
  28.     set the visible of sprite gQTchan to 1    
  29.   end if
  30. end
  31.  
  32. on startMovie
  33.   initglobals
  34.   set gMarkerRectList = [#r_macdonald: rect(213, 49, 339, 390), #r_spotlight: rect(511, 110, 641, 480), #r_loveSong: rect(355, 258, 490, 349), #r_pierre: rect(3, 108, 169, 421), #r_minors: rect(356, 31, 496, 234)]
  35.   set gMarkerRectListCount = count(gMarkerRectList)
  36.   
  37.   -- instance video control class into objects
  38.   global gQAvideoManager, gPEvideoManager, gHMvideoManager
  39.   set gQAvideoManager = new (script "video manager", field "clipList_QA") -- questions & answers
  40.   set gPEvideoManager = new (script "video manager", field "clipList_PE") -- public eye
  41.   set gHMvideoManager = new (script "video manager", field "clipList_HM") -- honourable mention
  42.   
  43.   set the idleloadmode = TRUE
  44.   
  45.   -- cursor stack object
  46.   global gCursorStack
  47.   set gCursorStack = new(script "cursor stack parent")
  48.   
  49.   -- active area cursors
  50.   repeat with c in [2,3,4,5,9,10,24,48]
  51.     set the cursor of sprite c to [the number of member "hand", the number of member "hand mask"]
  52.   end repeat
  53.   
  54.   global gTheSoundLevel
  55.   if the soundlevel = 0 then 
  56.     set gTheSoundLevel = 4
  57.     --    set the soundlevel = gTheSoundLevel
  58.   end if
  59. end